home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Grafik / Paint / ArtEffect4 / Rexx / cutpaste.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-05-15  |  285 b   |  19 lines
  1. /**/
  2. options results
  3.  
  4. address 'ArtEffect'
  5.  
  6. rectangle 0 0 31 31 painttool cut
  7. changebrush handle topleft
  8.  
  9. get stem pinfo. pictureinfo
  10. width = pinfo.width
  11. height = pinfo.height
  12.  
  13. do x = 0 to width by 32
  14.     do y = 0 to height by 32
  15.         plot x y painttool PEN mode matte strength 100
  16.     end
  17. end
  18.  
  19.